home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / opint102.5rc / D_GEN.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-04  |  2KB  |  70 lines
  1. Program DemoGeneral;
  2.  
  3.   {***************************************************************************}
  4.   {*                                                                         *}
  5.   {* O p u s   I n t e r f a c e    V e r   1.02     Demo Program.           *}
  6.   {*                                                                         *}
  7.   {* Opus V 1.0x Interface for Turbo Pascal Ver 4.0                          *}
  8.   {*                                                                         *}
  9.   {*  These Structures,Procedures and Functions may help you to make OPUS    *}
  10.   {* utilities for to help other SysOps, Please read the Documentation.      *}
  11.   {*                                                                         *}
  12.   {*  Regards                                                                *}
  13.   {*    Per Holm                                                             *}
  14.   {*                                                                         *}
  15.   {*   FIDO: Per Holm - Asgaard BBS 2:230/22.0                               *}
  16.   {*   UUCP: perholm@daimi.DK                                                *}
  17.   {*                                                                         *}
  18.   {***************************************************************************}
  19.  
  20.  
  21. Uses Dos,Opint;
  22.  
  23. var
  24.   l: longint;
  25.   DT: DateTime;
  26.   S: String[20];
  27.  
  28. begin
  29.   writeln(UpperCase('This is a sTupid TEst A_b-C!def@g'));
  30.   writeln(LowerCase('This is a sTupid TEst A_b-C!def@g'));
  31.   writeln(SmartCase('This is a sTupid TEst A_b-C!def@g'));
  32.  
  33. {***** Get the path environ ment variable *****}
  34.  
  35.   writeln('PATH=',GetEnvStr('PATH'));
  36.  
  37. {***** Get the difference from GMT *****}
  38.  
  39.   writeln('TZ=',GMT_Difference);
  40.  
  41. {***** Date conversion routines *****}
  42.  
  43.   GetDateTime(DT);
  44.   writeln(PackDateString(DT));
  45.   s:=PackDateString(DT);
  46.   UnPackDateString(S,DT);
  47.   writeln(PackDateString(DT));
  48.   l:=PackUnixDate(DT);
  49.   writeln('So many seconds has past since 1970 :',l);
  50.   UnpackUnixDate(l,DT);
  51.   writeln(PackDateString(DT));
  52.   writeln(PackDateStrLog(DT));
  53.  
  54. {***** And now let's make a line in the Log file format *****}
  55.  
  56.   AddLog('Con','*','TEST here we are');
  57.  
  58. {***** The Delay procedure *****}
  59.  
  60.   write('Now lets wait 10 secconds ');
  61.   GetDateTime(DT);
  62.   writeln(PackDateString(DT));
  63.   Delay(10000);
  64.   write('Thats''s all folks         ');
  65.   GetDateTime(DT);
  66.   writeln(PackDateString(DT));
  67.  
  68.   readln;
  69. end.
  70.